(t-mouse-make-event-element): Don't use the left edge

of the window if we're outside it e.g menu-bar.

diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el
index c8a7e9b6536244d44adc258f30146952703c5f63..eca2ce2b9fe10ddeb750092ce87f8a46ae189c2f 100644 (file)
--- a/lisp/t-mouse.el
+++ b/lisp/t-mouse.el
@@ -144,7 +144,7 @@ For example, \"2\" for /dev/tty2."
         (event (if w
                    (posn-at-x-y (- x left) (- y top) w t)
                  (append (list nil 'menu-bar)
-                         (nthcdr 2 (posn-at-x-y x y w t))))))
+                         (nthcdr 2 (posn-at-x-y x y))))))
     (setcar (nthcdr 3 event) time)
     event))